10 DATA 3E,00: ' LD A, 0 - Constante: MODO
20 DATA CD,0E,BC: ' CALL &BC0E - SET MODE
30 DATA 3E,02: ' LD A, 2
40 DATA 32,34,75: ' LD (30004), A - Asignacion: COLOR=2
50 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
60 DATA CD,90,BB: ' CALL &BB90 - SET PEN
70 DATA 3E,01: ' LD A, 1
80 DATA CD,96,BB: ' CALL &BB96 - SET PAPER
90 DATA 3E,0A: ' LD A, 10
100 DATA CD,6F,BB: ' CALL &BB6F - CURSOR COLUMN
110 DATA 3E,0A: ' LD A, 10 - Constante: LINEA1
120 DATA CD,72,BB: ' CALL &BB72 - CURSOR ROW
130 DATA 3E,61: ' LD A, "a"
140 DATA CD,5A,BB: ' CALL &BB5A - WRITECHAR
150 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
160 DATA 3C :' INC A
170 DATA 32,34,75: ' LD (30004), A - Incremento: COLOR+1
180 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
190 DATA CD,90,BB: ' CALL &BB90 - SET PEN
200 DATA 3E,62: ' LD A, "b"
210 DATA CD,5A,BB: ' CALL &BB5A - WRITECHAR
220 DATA C3,nnnSALTOLO,nnnSALTOHI: ' JP SALTO
230 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
240 DATA 3C :' INC A
250 DATA 32,34,75: ' LD (30004), A - Incremento: COLOR+1
260 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
270 DATA CD,90,BB: ' CALL &BB90 - SET PEN
280 ' Etiqueta de salto: SALTO, posicion: 30170
290 DATA 3E,02: ' LD A, 2
300 DATA CD,96,BB: ' CALL &BB96 - SET PAPER
310 DATA 3E,01: ' LD A, 1
320 DATA CD,6F,BB: ' CALL &BB6F - CURSOR COLUMN
330 DATA 3E,0A: ' LD A, 10 - Constante: LINEA1
340 DATA CD,72,BB: ' CALL &BB72 - CURSOR ROW
350 DATA 3E,64: ' LD A, "d"
360 DATA CD,5A,BB: ' CALL &BB5A - WRITECHAR
370 DATA C9: ' RET
380 longitud = 90
390 MEMORY 29999
400 'Codigo del programa
410 FOR n=30100 TO 30100+longitud
420   READ a$:POKE n,VAL("&"+a$)
430 NEXT
440 'Espacio para variables
450 FOR n=30000 TO 30099
460   POKE n,0
470 NEXT
480 POKE 30000, &CD: 'inicio: CALL 30100
490 POKE 30001,148
500 POKE 30002,117
510 CALL 30000
